home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / odbcall.zip / DEMO.ZIP / DEMO1.PAS < prev   
Pascal/Delphi Source File  |  1996-04-06  |  3KB  |  136 lines
  1. unit Demo1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ODBCQry, ExtCtrls, Buttons, Odbcctrl, Grids,
  8.   TGQry, DataCtrl;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Connection: TODBCCon;
  13.     DemoQuery: TODBCQuery;
  14.     CreateTable: TODBCQuery;
  15.     InsertValues: TODBCQuery;
  16.     Panel1: TPanel;
  17.     Panel2: TPanel;
  18.     Panel3: TPanel;
  19.     Label1: TLabel;
  20.     Label2: TLabel;
  21.     Label3: TLabel;
  22.     Button1: TButton;
  23.     SpeedButton1: TSpeedButton;
  24.     SpeedButton2: TSpeedButton;
  25.     SpeedButton3: TSpeedButton;
  26.     SpeedButton4: TSpeedButton;
  27.     SpeedButton5: TSpeedButton;
  28.     SpeedButton6: TSpeedButton;
  29.     SpeedButton7: TSpeedButton;
  30.     Edit4: TEdit;
  31.     Label5: TLabel;
  32.     SpeedButton8: TSpeedButton;
  33.     ODBCEdit1: TODBCEdit;
  34.     ODBCMemo1: TODBCMemo;
  35.     ODBCEdit2: TODBCEdit;
  36.     Label4: TLabel;
  37.     ODBCEdit3: TODBCEdit;
  38.     procedure Button1Click(Sender: TObject);
  39.     procedure SpeedButton3Click(Sender: TObject);
  40.     procedure SpeedButton2Click(Sender: TObject);
  41.     procedure SpeedButton1Click(Sender: TObject);
  42.     procedure SpeedButton4Click(Sender: TObject);
  43.     procedure SpeedButton6Click(Sender: TObject);
  44.     procedure SpeedButton7Click(Sender: TObject);
  45.     procedure SpeedButton5Click(Sender: TObject);
  46.     procedure SpeedButton8Click(Sender: TObject);
  47.   private
  48.     { Private declarations }
  49.     Edited: Boolean;
  50.   public
  51.     { Public declarations }
  52.   end;
  53.  
  54. var
  55.   Form1: TForm1;
  56.  
  57. implementation
  58. uses ODBCAPI;
  59. {$R *.DFM}
  60.  
  61. procedure TForm1.Button1Click(Sender: TObject);
  62. var
  63.   RowNo: LongInt;
  64.   MyDate: Date_Struct;
  65. begin
  66.   CreateTable.Execute;
  67.  
  68.   MyDate.Year := 1995;
  69.   MyDate.Month := 7;
  70.  
  71.   with InsertValues do
  72.   begin
  73.     Prepared := True;
  74.     for RowNo := 1 to 100 do
  75.     begin
  76.       Params[1].AsInteger := RowNo;
  77.       Params[2].AsString := 'Row' + IntToStr(RowNo);
  78.       MyDate.Day := RowNo mod 30 + 1;
  79.       Params[3].AsDate := MyDate;
  80.       Execute;
  81.     end;
  82.     Prepared := False;
  83.   end;
  84. end;
  85.  
  86. procedure TForm1.SpeedButton3Click(Sender: TObject);
  87. begin
  88.   if not DemoQuery.Active then DemoQuery.Active := True;
  89.   DemoQuery.First;
  90. end;
  91.  
  92. procedure TForm1.SpeedButton2Click(Sender: TObject);
  93. begin
  94.   if not DemoQuery.Active then DemoQuery.Active := True;
  95.   DemoQuery.Prior;
  96. end;
  97.  
  98. procedure TForm1.SpeedButton1Click(Sender: TObject);
  99. begin
  100.   if not DemoQuery.Active then DemoQuery.Active := True;
  101.   DemoQuery.Next;
  102. end;
  103.  
  104. procedure TForm1.SpeedButton4Click(Sender: TObject);
  105. begin
  106.   if not DemoQuery.Active then DemoQuery.Active := True;
  107.   DemoQuery.Last;
  108. end;
  109.  
  110. procedure TForm1.SpeedButton6Click(Sender: TObject);
  111. begin
  112.   if not DemoQuery.Active then DemoQuery.Active := True;
  113.   DemoQuery.Delete;
  114. end;
  115.  
  116. procedure TForm1.SpeedButton7Click(Sender: TObject);
  117. begin
  118.   if not DemoQuery.Active then DemoQuery.Active := True;
  119.   DemoQuery.Insert;
  120. end;
  121.  
  122. procedure TForm1.SpeedButton5Click(Sender: TObject);
  123. begin
  124.   if not DemoQuery.Active then DemoQuery.Active := True;
  125.   DemoQuery.Update;
  126.   DemoQuery.ResetRows;
  127. end;
  128.  
  129. procedure TForm1.SpeedButton8Click(Sender: TObject);
  130. begin
  131.   if not DemoQuery.Active then DemoQuery.Active := True;
  132.   DemoQuery.RecordNo := StrToInt(Edit4.Text);
  133. end;
  134.  
  135. end.
  136.